home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 65
/
065.d81
/
speed basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
162 lines
3 poke53280,1:poke53281,1:poke646,5:clr:print"[147]"chr$(14)chr$(8)
5 gosub60100:goto430
9 :
10 rem====press any key prompt=======
11 :
12 x=13:y=24:w$="[144][208]ress any key[145][145][145]":gosub66
14 geta$:ifa$=""then14
15 return
63 :
64 rem========print at=======
65 :
66 poke 783,peek(783)and254:poke782,x:poke781,y:sys65520:printw$
67 poke783,peek(783)or1:return
68 z9=ti:fori=1toz:next:z8=ti
69 w$="[197]mpty [204]oop":return
72 z9=ti:fori=1toz:a=z:next:z8=ti
73 w$="[193]=[218] ":return
76 z9=ti:fori=1toz:a=100:next:z8=ti
77 w$="[193]=100 ":return
80 z9=ti:fori=1toz:a=z/50:next:z8=ti
81 w$="[193]=[218]/50 ":return
84 z9=ti:fori=1toz:a=z*.02:next:z8=ti
85 w$="[193]=[218]*.02 ":return
88 z9=ti:fori=1toz:a=z/.02:next:z8=ti
89 w$="[193]=[218]/.02 ":return
96 z9=ti:fori=1toz:a=z*z7:next:z8=ti
97 w$="[193]=[218]*[218]7 (50)":return
100 z9=ti:fori=1toz:a=z*z6:next:z8=ti
101 w$="[193]=[218]*[218]6 (.02)":return
108 z9=ti:fori=1toz
109 rem this is a typical long rem statement for timing purposes only
110 next
111 z8=ti:w$="[210][197][205][160]statement":return
131 :
132 rem ==== diskread subroutine ======
133 :
134 l=len(f$):rem f$=name of ssfile
136 b=951:pokeb,l+2:pokeb+l+1,44:pokeb+2+l,80
138 fori=0tol-1:pokeb+1+i,asc(mid$(f$,i+1,1)):next
139 print"[147] ";
140 poke909,1:rem poke speed here
142 sys828
144 return
346 :
347 rem ====variable demo========
348 :
350 f$="vd":gosub134:gosub12:clr:dimz9,z8,i,a
355 print"[147] [211][201][205][208][204][197] [214][193][210][201][193][194][204][197] [196][197][205][207]"
360 printtab(24)"[198]irst"tab(32)"[211]econd"
365 print" [211]tart of variables[129]"tab(24)peek(45)+256*peek(46)
370 print" [197]nd of variables[129]"tab(24)peek(47)+256*peek(48)-1
375 z=100:z7=50:z6=.02:deffna(x)=z7*z6-z*z7
380 print:fork=1to9
385 onkgosub68,72,76,80,84,88,96,100,108
390 printtab(6)""w$;tab(25);"[129]";z8-z9
395 next
400 clr:dimz9,z8,i,a
401 dim a1,a2,a3,a4,a5,a6,a7,a8,a9,a0,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak
402 dimb1,b2,b3,b4,b5,b6,b7,b8,b9,b0,c1,c2,c3,c4,c5,c6,c7,c8,c9,c0,d1,d2,d3,d4
403 dimd5,d6,d7,d8,d9,d0,e1,e2,e3,e4,e5,e6,e7,e8,e9,e0,f1,f2,f3,f4,f5,f6,f7,f8
404 dimf9,f0,g1,g2,g3,g4,g5,g6,g7,g8,g9,g0,h1,h2,h3,h4,h5,h6,h7,h8,h9,h0
405 k=1:z=100:z7=50:z6=.02:deffna(x)=z7*z6-z*z7
408 print"[129]"
410 printtab(32)peek(45)+256*peek(46)
411 printtab(32)peek(47)+256*peek(48)-1
412 print:fork=1to9
414 onkgosub68,72,76,80,84,88,96,100,108
416 printtab(33)z8-z9
418 next
419 print" [206]otice that when the variable [129][218] is"
420 print" added (in the [211]econd run), the time"
421 print" to go through the loops is appreciably increased."
422 gosub12
424 print"[147]":f$="vc":gosub134:gosub12
427 :
428 rem ========menu===================
429 :
430 print"[147] [193] [196][197][205][207][206][211][212][210][193][212][201][207][206] [207][198] [212][200][197] [211][208][197][197][196] [207][198]
431 [153]" str$right$(NULL)val(NULL)(NULL)right$(NULL)(NULL)right$(NULL)chr$ atn(NULL)str$ str$valascright$(NULL)right$(NULL)chr$ (NULL)atn(NULL)right$atnpeek(NULL)val(NULL)"
432 [153][163]12)"clrby (NULL)aurice mid$ones"
433 [153]" (NULL)left$valcloseasc(NULL)(NULL)(NULL) close(NULL)'(NULL)closeclose"
434 [153]" stop1. (NULL)un (NULL)atn(NULL)right$atnpeek(NULL)val demo"
435 [153]" stop2. (NULL)un atn(NULL)(NULL)atn(NULL) demo"
436 [153]" stop3. (NULL)ead methodology"
438 [153]" stop4. (NULL)eturn to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
439 [153]" for(NULL)lease choose an (NULL) "
440 [141]14:[139]a$[179]"1"[176]a$[177]"4"[167][141]14
444 [145] [197](a$)[137]350,500,600,60000
496 :
497 [143] ====array demo======
498 :
500 f$[178]"ad":[141]134:[141]12
501 [153]"loadstop atn(NULL)(NULL)atn(NULL) (NULL)atn(NULL)right$atnpeek(NULL)val str$val(NULL)(NULL)"
502 [153][163]20)"#1 #2 #3"
503 [156]:[134]a(20,50),s,f,b(20,50),c(20,50),d(20,50)
510 [153]" (NULL)tart of arraysfor"[163]18)[194](47)[170]256[172][194](48)
512 [153]" valnd of arraysfor"[163]18)[194](49)[170]256[172][194](50)[171]1
516 s[178]ti:a[178]3:f[178]ti:[153]" atndd new variablefor"[163]19)f[171]s
518 s[178]ti:b[178]3:f[178]ti:[153]" atndd anotherfor"[163]19)f[171]s
520 [151]214,12:[153]:[153]"stop #1 - str$efining variables after defining
522 print" 4000 array variables"
524 fort=1to2000:next:clr
526 dimrq%(308),m%(11),f$(11),g$(11),p%(11),pp%(13),y%(11),u%(11),hs%(11,4)
528 dim na$(11,4),mh%(3)
530 print"[129]"
532 printtab(25)peek(47)+256*peek(48)
534 print:printtab(25)peek(49)+256*peek(50)-1
536 s=ti:a=3:f=ti:print:printtab(27)f-s
538 s=ti:b=3:f=ti:print:printtab(27)f-s
540 poke214,15:print:print"[144] #2 - [196]efining variables after defining"
542 print" 1202 [201][206][212][197][199][197][210] array variables"
544 fort=1to2000:next:clr
546 dimrq(308),m%(11),f$(11),g$(11),p%(11),pp%(13),y%(11),u%(11),hs%(11,4)
548 dim na$(11,4),mh%(3)
550 print"[129]"
552 printtab(32)peek(47)+256*peek(48)
554 print:printtab(32)peek(49)+256*peek(50)-1
556 s=ti:a=3:f=ti:print:printtab(34)f-s
558 s=ti:b=3:f=ti:print:printtab(34)f-s
560 poke214,18:print:print"[144] #3 - [196]efining variables after defining"
562 print" 1202 [210][197][193][204] array variables"
580 gosub12:goto430
596 :
597 rem =====read explanation=====
598 :
600 print"[147]"
604 f$="ex1":gosub134:gosub12:f$="ex2":print"[147]":gosub134:gosub12:goto430
997 :
998 rem ====scratch and save====
999 :
10000 open15,8,15,"s0:speed basic":close15:save"speed basic",8:end
50097 :
50098 rem==reconnect and load reader===
50099 :
60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60010 if er<>63 then print"[147]":end
60020 a$="hello connect":q$=chr$(34)
60030 print"[147]load"q$a$q$",8"
60040 print"run":poke631,13: poke632,13:poke198,2:end
60100 fori=828to969:reada:pokei,a:next:return
60102 data 173,183,003,162,184,160,003
60104 data 032,189,255,169,001,162,008
60106 data 160,000,032,186,255,032,192
60108 data 255,162,001,032,198,255,032
60110 data 207,255,032,207,255,032,207
60112 data 255,141,059,003,032,183,255
60114 data 041,064,208,068,173,059,003
60116 data 201,128,176,236,173,059,003
60118 data 201,064,176,033,173,059,003
60120 data 201,031,144,034,173,059,003
60122 data 201,031,240,035,173,059,003
60124 data 032,210,255,162,020,160,000
60126 data 136,208,253,202,208,248,076
60128 data 093,003,173,059,003,105,127
60130 data 076,137,003,173,059,003,105
60132 data 064,076,137,003,169,013,076
60134 data 137,003,169,001,032,195,255
60136 data 032,204,255,096,007,066,076
60138 data 085,082,066,044,080,048,048
60140 data 048,048,048,048,048,048,048
60142 data 048,048